home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / AIncludes / CMPRComponent.a < prev    next >
Encoding:
Text File  |  1995-04-18  |  3.1 KB  |  145 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        CMPRComponent.a
  3. ;
  4. ;    Contains:    ColorSync ProfileResponder Components Interface 
  5. ;
  6. ;    Version:    Technology:    ColorSync 2.0
  7. ;                Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__CMPRCOMPONENT__') = 'UNDEFINED' THEN
  21. __CMPRCOMPONENT__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  30.     include 'Quickdraw.a'
  31.     ENDIF
  32. ;        include 'MixedMode.a'                                        ;
  33. ;        include 'QuickdrawText.a'                                    ;
  34.  
  35.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  36.     include 'Components.a'
  37.     ENDIF
  38.  
  39.     IF &TYPE('__CMAPPLICATION__') = 'UNDEFINED' THEN
  40.     include 'CMApplication.a'
  41.     ENDIF
  42. ;        include 'Files.a'                                            ;
  43. ;            include 'OSUtils.a'                                    ;
  44. ;                include 'Memory.a'                                    ;
  45. ;        include 'Printing.a'                                        ;
  46. ;            include 'Errors.a'                                        ;
  47. ;            include 'Dialogs.a'                                    ;
  48. ;                include 'Windows.a'                                ;
  49. ;                    include 'Events.a'                                ;
  50. ;                    include 'Controls.a'                            ;
  51. ;                        include 'Menus.a'                            ;
  52. ;                include 'TextEdit.a'                                ;
  53. ;        include 'CMICCProfile.a'                                    ;
  54.  
  55. CMPRInterfaceVersion            EQU        0
  56.  
  57. ; Component function selectors 
  58. kCMPRGetProfile                    EQU        0
  59. kCMPRSetProfile                    EQU        1
  60. kCMPRSetProfileDescription        EQU        2
  61. kCMPRGetIndexedProfile            EQU        3
  62. kCMPRDeleteDeviceProfile        EQU        4
  63.  
  64. ;
  65. ; pascal CMError CMGetProfile(ComponentInstance pr, CMProfileHandle aProfile, CMProfileHandle *returnedProfile)
  66. ;
  67.     IF ¬ GENERATINGCFM THEN
  68.         Macro
  69.         _CMGetProfile
  70.             dc.w     $2F3C
  71.             dc.w     $0008
  72.             dc.w     $0000
  73.             moveq    #0,d0
  74.             dc.w     $A82A
  75.         EndM
  76.     ELSE
  77.         IMPORT_CFM_FUNCTION    CMGetProfile
  78.     ENDIF
  79.  
  80. ;
  81. ; pascal CMError CMSetProfile(ComponentInstance pr, CMProfileHandle newProfile)
  82. ;
  83.     IF ¬ GENERATINGCFM THEN
  84.         Macro
  85.         _CMSetProfile
  86.             dc.w     $2F3C
  87.             dc.w     $0004
  88.             dc.w     $0001
  89.             moveq    #0,d0
  90.             dc.w     $A82A
  91.         EndM
  92.     ELSE
  93.         IMPORT_CFM_FUNCTION    CMSetProfile
  94.     ENDIF
  95.  
  96. ;
  97. ; pascal CMError CMSetProfileDescription(ComponentInstance pr, long DeviceData, CMProfileHandle hProfile)
  98. ;
  99.     IF ¬ GENERATINGCFM THEN
  100.         Macro
  101.         _CMSetProfileDescription
  102.             dc.w     $2F3C
  103.             dc.w     $0008
  104.             dc.w     $0002
  105.             moveq    #0,d0
  106.             dc.w     $A82A
  107.         EndM
  108.     ELSE
  109.         IMPORT_CFM_FUNCTION    CMSetProfileDescription
  110.     ENDIF
  111.  
  112. ;
  113. ; pascal CMError CMGetIndexedProfile(ComponentInstance pr, CMProfileSearchRecordHandle search, CMProfileHandle *returnProfile, long *index)
  114. ;
  115.     IF ¬ GENERATINGCFM THEN
  116.         Macro
  117.         _CMGetIndexedProfile
  118.             dc.w     $2F3C
  119.             dc.w     $000C
  120.             dc.w     $0003
  121.             moveq    #0,d0
  122.             dc.w     $A82A
  123.         EndM
  124.     ELSE
  125.         IMPORT_CFM_FUNCTION    CMGetIndexedProfile
  126.     ENDIF
  127.  
  128. ;
  129. ; pascal CMError CMDeleteDeviceProfile(ComponentInstance pr, CMProfileHandle deleteMe)
  130. ;
  131.     IF ¬ GENERATINGCFM THEN
  132.         Macro
  133.         _CMDeleteDeviceProfile
  134.             dc.w     $2F3C
  135.             dc.w     $0004
  136.             dc.w     $0004
  137.             moveq    #0,d0
  138.             dc.w     $A82A
  139.         EndM
  140.     ELSE
  141.         IMPORT_CFM_FUNCTION    CMDeleteDeviceProfile
  142.     ENDIF
  143.  
  144.     ENDIF ; __CMPRCOMPONENT__
  145.